home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / os2 / e33el2.zip / emacs / 19.33 / lisp / term / lk201.el < prev    next >
Text File  |  1994-04-12  |  3KB  |  69 lines
  1. ;; Define function key sequences for DEC terminals.
  2.  
  3. ;; Termcap or terminfo should set these.
  4. ;; (define-key function-key-map "\e[A" [up])
  5. ;; (define-key function-key-map "\e[B" [down])
  6. ;; (define-key function-key-map "\e[C" [right])
  7. ;; (define-key function-key-map "\e[D" [left])
  8.  
  9. (define-key function-key-map "\e[1~" [find])
  10. (define-key function-key-map "\e[2~" [insert])
  11. (define-key function-key-map "\e[3~" [delete])
  12. (define-key function-key-map "\e[4~" [select])
  13. (define-key function-key-map "\e[5~" [prior])
  14. (define-key function-key-map "\e[6~" [next])
  15. (define-key function-key-map "\e[11~" [f1])
  16. (define-key function-key-map "\e[12~" [f2])
  17. (define-key function-key-map "\e[13~" [f3])
  18. (define-key function-key-map "\e[14~" [f4])
  19. (define-key function-key-map "\e[15~" [f5])
  20. (define-key function-key-map "\e[17~" [f6])
  21. (define-key function-key-map "\e[18~" [f7])
  22. (define-key function-key-map "\e[19~" [f8])
  23. (define-key function-key-map "\e[20~" [f9])
  24. (define-key function-key-map "\e[21~" [f10])
  25. ;; Customarily F11 is used as the ESC key.
  26. ;; The file that includes this one, takes care of that.
  27. (define-key function-key-map "\e[23~" [f11])
  28. (define-key function-key-map "\e[24~" [f12])
  29. (define-key function-key-map "\e[25~" [f13])
  30. (define-key function-key-map "\e[26~" [f14])
  31. (define-key function-key-map "\e[28~" [help])
  32. (define-key function-key-map "\e[29~" [menu])
  33. (define-key function-key-map "\e[31~" [f17])
  34. (define-key function-key-map "\e[32~" [f18])
  35. (define-key function-key-map "\e[33~" [f19])
  36. (define-key function-key-map "\e[34~" [f20])
  37.  
  38. ;; Termcap or terminfo should set these.
  39. ;; (define-key function-key-map "\eOA" [up])
  40. ;; (define-key function-key-map "\eOB" [down])
  41. ;; (define-key function-key-map "\eOC" [right])
  42. ;; (define-key function-key-map "\eOD" [left])
  43.  
  44. ;; Termcap or terminfo should set these, but doesn't properly.
  45. ;; Termcap sets these to k1-k4, which get mapped to f1-f4 in term.c
  46. (define-key function-key-map "\eOP" [kp-f1])
  47. (define-key function-key-map "\eOQ" [kp-f2])
  48. (define-key function-key-map "\eOR" [kp-f3])
  49. (define-key function-key-map "\eOS" [kp-f4])
  50.  
  51. (define-key function-key-map "\eOI" [kp-tab])
  52. (define-key function-key-map "\eOj" [kp-multiply])
  53. (define-key function-key-map "\eOk" [kp-add])
  54. (define-key function-key-map "\eOl" [kp-separator])
  55. (define-key function-key-map "\eOM" [kp-enter])
  56. (define-key function-key-map "\eOm" [kp-subtract])
  57. (define-key function-key-map "\eOn" [kp-decimal])
  58. (define-key function-key-map "\eOo" [kp-divide])
  59. (define-key function-key-map "\eOp" [kp-0])
  60. (define-key function-key-map "\eOq" [kp-1])
  61. (define-key function-key-map "\eOr" [kp-2])
  62. (define-key function-key-map "\eOs" [kp-3])
  63. (define-key function-key-map "\eOt" [kp-4])
  64. (define-key function-key-map "\eOu" [kp-5])
  65. (define-key function-key-map "\eOv" [kp-6])
  66. (define-key function-key-map "\eOw" [kp-7])
  67. (define-key function-key-map "\eOx" [kp-8])
  68. (define-key function-key-map "\eOy" [kp-9])
  69.